unit udm;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, mysql50conn, sqldb, db, FileUtil;

type

  { TdmMargaria }

  TdmMargaria = class(TDataModule)
    Configid: TLongintField;
    Configname: TStringField;
    Configvalue: TStringField;
    Conn: TMySQL50Connection;
    Config: TSQLQuery;
    qMStock: TSQLQuery;
    Trans: TSQLTransaction;
  private
    { private declarations }
  public
    { public declarations }
  end; 

var
  dmMargaria: TdmMargaria;

implementation

{$R *.lfm}

end.

